(xselect-convert-to-string): If VALUE is a string,

return a cons of TYPE and the string.

diff --git a/lisp/select.el b/lisp/select.el
index 85ca927d7ef755f1ea8020a751ffdd3b7399eb8e..801db31cb6195d6e5b12c6227602bbe898cbedd7 100644 (file)
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -134,7 +134,9 @@ Cut buffers are considered obsolete; you should use selections instead."
 
 (defun xselect-convert-to-string (selection type value)
   (cond ((stringp value)
-        value)
+        ;; Return the type as well, so that xselect.c could honor
+        ;; requests whose type is STRING.
+        (cons type value))
        ((overlayp value)
         (save-excursion
           (or (buffer-name (overlay-buffer value))